(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     11254,        418]
NotebookOptionsPosition[      7976,        302]
NotebookOutlinePosition[      8399,        318]
CellTagsIndexPosition[      8356,        315]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Guide", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism", "Categorization",
 CellChangeTimes->{{3.6000053302550087`*^9, 3.600005334233015*^9}},
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["TransferMatrixFormalism`", "Categorization",
 CellChangeTimes->{3.600005341549428*^9},
 CellLabel->"Context",
 CellID->468444828],

Cell["TransferMatrixFormalism/guide/Transfer Matrix Formalism", \
"Categorization",
 CellChangeTimes->{3.600005348865841*^9},
 CellLabel->"URI"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552],

Cell["Transfer Matrix", "Keywords",
 CellChangeTimes->{{3.6000051838925514`*^9, 3.600005190553763*^9}},
 CellID->1251852827],

Cell["Fresnel", "Keywords",
 CellChangeTimes->{{3.6000051838925514`*^9, 3.6000051923165655`*^9}},
 CellID->408044284]
}, Open  ]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->795394057],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->802101],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->509823116],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->199884516],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->463951815],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->8237523],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->813936640],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Open  ]],

Cell[CellGroupData[{

Cell["Transfer Matrix Formalism", "GuideTitle",
 CellID->942062912],

Cell["\<\
At the core of the multilayer thin film model for nonlinear spectroscopy is \
the transfer matrix.  The functions made available here are used internally \
by the model. \
\>", "GuideAbstract",
 CellChangeTimes->{{3.597779690610363*^9, 3.597779836190819*^9}},
 CellID->2001916300]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "GuideFunctionsSection",
 CellID->1866139230],

Cell[CellGroupData[{

Cell["Basic Building Blocks", "GuideFunctionsSubsection",
 CellChangeTimes->{3.597780046232588*^9},
 CellID->538868830],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["FresnelA",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/FresnelA"]], 
  "InlineGuideFunction"],
 " \[LongDash] Fresnel amplitude coefficients for reflection and transmission"
}], "GuideText",
 CellChangeTimes->{{3.5977117929627614`*^9, 3.597711801230776*^9}, {
  3.5977786869799995`*^9, 3.597778687011199*^9}, {3.5977793660893927`*^9, 
  3.597779375043808*^9}},
 CellID->203374175],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["RefractionMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"]], 
  "InlineGuideFunction"],
 " \[LongDash] interfacial matrix of refraction"
}], "GuideText",
 CellChangeTimes->{{3.598232626078126*^9, 3.598232664049593*^9}},
 CellID->16363611],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], 
  "InlineGuideFunction"],
 " \[LongDash] layer phase matrix"
}], "GuideText",
 CellChangeTimes->{{3.59823269083484*^9, 3.5982327051712646`*^9}},
 CellID->245469967]
}, Open  ]],

Cell["\t", "GuideDelimiter",
 CellID->449303363],

Cell[CellGroupData[{

Cell["Transfer Matrices", "GuideFunctionsSubsection",
 CellChangeTimes->{3.5977800682920265`*^9},
 CellID->245947187],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["AbelesS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"]], 
  "InlineGuideFunction"],
 " \[LongDash] total thin film system transfer matrix"
}], "GuideText",
 CellChangeTimes->{{3.598232718337688*^9, 3.5982327472299385`*^9}, {
  3.598232835620694*^9, 3.5982328356830945`*^9}},
 CellID->327580530],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["AbelesSIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"]], 
  "InlineGuideFunction"],
 " \[LongDash] subsystem I partial system transfer matrix"
}], "GuideText",
 CellChangeTimes->{{3.598232804279239*^9, 3.5982328277270803`*^9}},
 CellID->205451450],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["AbelesSIIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"]], 
  "InlineGuideFunction"],
 " \[LongDash] subsystem II partial system transfer matrix"
}], "GuideText",
 CellChangeTimes->{{3.598232729071507*^9, 3.5982327311775107`*^9}, {
  3.5982327677907753`*^9, 3.5982327704427795`*^9}, {3.5982328424535065`*^9, 
  3.598232842484706*^9}},
 CellID->700749670]
}, Open  ]],

Cell["\t", "GuideDelimiter",
 CellID->67464636],

Cell[CellGroupData[{

Cell["Individual Adjacent Field Transfer Coefficients", \
"GuideFunctionsSubsection",
 CellChangeTimes->{
  3.597780086497259*^9, {3.597780962888599*^9, 3.597780967662207*^9}},
 CellID->200697535],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["InternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"]], 
  "InlineGuideFunction"],
 " \[LongDash] internal transfer coefficients for fields incident on a thin \
film system"
}], "GuideText",
 CellChangeTimes->{{3.598232906789019*^9, 3.5982329175550385`*^9}, {
  3.5982329486146927`*^9, 3.598232948661493*^9}},
 CellID->588483319],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ExternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"]], 
  "InlineGuideFunction"],
 " \[LongDash] external transfer coefficients for internally generated fields"
}], "GuideText",
 CellChangeTimes->{{3.598232922453447*^9, 3.598232958957511*^9}},
 CellID->986316135]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "GuideTutorialsSection",
 CellID->415694126],

Cell["XXXXX", "GuideText",
 CellChangeTimes->{{3.600005278944518*^9, 3.6000052808945217`*^9}},
 CellID->163088556]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "GuideMoreAboutSection",
 CellID->23220180],

Cell[TextData[ButtonBox["Thin Film Interference Model",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/guide/Thin Film Interference Model"]], "GuideMoreAbout",
 CellChangeTimes->{{3.5978268557678213`*^9, 3.597826874395254*^9}, {
   3.6000110575259113`*^9, 3.6000110925569153`*^9}, 3.6000114152893744`*^9},
 CellID->252299663]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "GuideRelatedLinksSection",
 CellID->415694148],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], 
   None}]], "GuideRelatedLinks",
 CellChangeTimes->{{3.597778783234168*^9, 3.5977787929841857`*^9}},
 CellID->343373114]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{Automatic, 314}, {Automatic, 7}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "GuidePageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 325, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[907, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[978, 41, 78, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 164, 3, 31, "Categorization",
 CellID->605800465],
Cell[1226, 50, 135, 3, 31, "Categorization",
 CellID->468444828],
Cell[1364, 55, 144, 3, 31, "Categorization"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1545, 63, 56, 1, 27, "KeywordsSection",
 CellID->1427428552],
Cell[1604, 66, 124, 2, 17, "Keywords",
 CellID->1251852827],
Cell[1731, 70, 117, 2, 17, "Keywords",
 CellID->408044284]
}, Open  ]],
Cell[CellGroupData[{
Cell[1885, 77, 53, 1, 27, "DetailsSection",
 CellID->307771771],
Cell[1941, 80, 63, 2, 31, "Details",
 CellID->795394057],
Cell[2007, 84, 69, 2, 31, "Details",
 CellID->350963985],
Cell[2079, 88, 63, 2, 31, "Details",
 CellID->802101],
Cell[2145, 92, 71, 2, 31, "Details",
 CellID->509823116],
Cell[2219, 96, 61, 2, 31, "Details",
 CellID->199884516],
Cell[2283, 100, 61, 2, 31, "Details",
 CellID->463951815],
Cell[2347, 104, 61, 2, 31, "Details",
 CellID->8237523],
Cell[2411, 108, 78, 2, 31, "Details",
 CellID->813936640],
Cell[2492, 112, 67, 2, 31, "Details",
 CellID->240026365]
}, Open  ]],
Cell[CellGroupData[{
Cell[2596, 119, 67, 1, 76, "GuideTitle",
 CellID->942062912],
Cell[2666, 122, 290, 6, 39, "GuideAbstract",
 CellID->2001916300]
}, Open  ]],
Cell[CellGroupData[{
Cell[2993, 133, 54, 1, 68, "GuideFunctionsSection",
 CellID->1866139230],
Cell[CellGroupData[{
Cell[3072, 138, 119, 2, 33, "GuideFunctionsSubsection",
 CellID->538868830],
Cell[3194, 142, 453, 11, 23, "GuideText",
 CellID->203374175],
Cell[3650, 155, 326, 9, 23, "GuideText",
 CellID->16363611],
Cell[3979, 166, 304, 9, 23, "GuideText",
 CellID->245469967]
}, Open  ]],
Cell[4298, 178, 48, 1, 26, "GuideDelimiter",
 CellID->449303363],
Cell[CellGroupData[{
Cell[4371, 183, 117, 2, 33, "GuideFunctionsSubsection",
 CellID->245947187],
Cell[4491, 187, 376, 10, 23, "GuideText",
 CellID->327580530],
Cell[4870, 199, 333, 9, 23, "GuideText",
 CellID->205451450],
Cell[5206, 210, 440, 11, 23, "GuideText",
 CellID->700749670]
}, Open  ]],
Cell[5661, 224, 47, 1, 26, "GuideDelimiter",
 CellID->67464636],
Cell[CellGroupData[{
Cell[5733, 229, 196, 4, 33, "GuideFunctionsSubsection",
 CellID->200697535],
Cell[5932, 235, 432, 11, 37, "GuideText",
 CellID->588483319],
Cell[6367, 248, 367, 9, 23, "GuideText",
 CellID->986316135]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6783, 263, 62, 1, 70, "GuideTutorialsSection",
 CellID->415694126],
Cell[6848, 266, 114, 2, 20, "GuideText",
 CellID->163088556]
}, Open  ]],
Cell[CellGroupData[{
Cell[6999, 273, 62, 1, 70, "GuideMoreAboutSection",
 CellID->23220180],
Cell[7064, 276, 334, 6, 20, "GuideMoreAbout",
 CellID->252299663]
}, Open  ]],
Cell[CellGroupData[{
Cell[7435, 287, 69, 1, 70, "GuideRelatedLinksSection",
 CellID->415694148],
Cell[7507, 290, 453, 9, 48, "GuideRelatedLinks",
 CellID->343373114]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
